"SEPTEMBER LISTING 3" AS SAVED ON DISK
0800              1           TTL "Listing Three: S/A Mini-Mailer"
0800              2  ;
0800              3  ;  Listing 3
0800              4  ;
0800              5  ;
0800              6  ;
0800              7  ;  WARNING!!! This program is intended  for demonstration
0800              8  ;  purposes only. It has not been tested well enough
0800              9  ;  to quality it as a commercial product.
0800             10  ;  Neither Lazerware nor Randy Hyde can assume any
0800             11  ;  responsibility for the use of this program.
0800             12  ;
0800             13  ;
0800             14  ;
0800             15  ;
0800             16  **********************************
0800             17  *                                *
0800             18  * SPEED/ASM Equates              *
0800             19  *                                *
0800             20  **********************************
0800             21  ;
0800             22  ;
0800             23  ;
0800             24  ;
0800             25  ;
0800             26  ;
0800             27  *************
0800             28  * CONSTANTS *
0800             29  *************
0800             30  ;
0000             31  FALSE    EQU 0
0001             32  TRUE     EQU 1
008D             33  CR       EQU $8D
0087             34  BELL     EQU $87
0084             35  CTLD     EQU $84
0800             36  ;
0800             37  ;
00BD             38  EQ       EQU "="
00A3             39  NE       EQU "#"
00BE             40  GT       EQU ">"
00BC             41  LT       EQU "<"
BDBE             42  GE       EQU ">"|"="*256
BDBC             43  LE       EQU "<"|"="*256
0800             44  ;
0800             45  ;
0800             46  ;
0800             47  ;
0800             48  ;
0800             49  ;
0800             50  ;
0800             51  **************************
0800             52  * SPEED/ASM ENTRY POINTS *
0800             53  **************************
0800             54  ;
7800             55  PUTC     EQU $7800
7803             56  GETC     EQU PUTC+3
7806             57  SAGL     EQU GETC+3          ;FOR USE  BY S/A  ONLY-SEE DO
7809             58  SAPC     EQU SAGL+3          ; "   "    "  "    "     "   
780C             59  HOME     EQU SAPC+3          ;HOME AND CLEAR
780F             60  READLN   EQU HOME+3
7812             61  INIT     EQU READLN+3
7815             62  FOR      EQU INIT+3
7818             63  FOR0     EQU FOR+3
781B             64  NEXT     EQU FOR0+3
781E             65  IFI      EQU NEXT+3
7821             66  IFI0     EQU IFI+3
7824             67  IFS      EQU IFI0+3
7827             68  IFS0     EQU IFS+3
782A             69  MOVE     EQU IFS0+3
782D             70  LOAD     EQU MOVE+3
7830             71  MOVS     EQU LOAD+3
7833             72  LDSTR    EQU MOVS+3
7836             73  PRINT    EQU LDSTR+3
7839             74  PRTSTR   EQU PRINT+3
783C             75  PRTINT   EQU PRTSTR+3
783F             76  RDSTR    EQU PRTINT+3
7842             77  RDINT    EQU RDSTR+3
7845             78  ONXGOTO  EQU RDINT+3
7848             79  CASE     EQU ONXGOTO+3
784B             80  CASEI    EQU CASE+3
784E             81  INSET    EQU CASEI+3
7851             82  NOTINSET EQU INSET+3
7854             83  ABS      EQU NOTINSET+3
7857             84  NEG      EQU ABS+3
785A             85  MUL      EQU NEG+3
785D             86  DIV      EQU MUL+3
7860             87  MOD      EQU DIV+3
7863             88  RND      EQU MOD+3
7866             89  SUBSTR   EQU RND+3
7869             90  INDEX    EQU SUBSTR+3
786C             91  LENGTH   EQU INDEX+3
786F             92  CONCAT   EQU LENGTH+3
0800             93  ;
0800             94  ;  Apple Monitor equates.
0800             95  ;   
FF69             96  EXIT     EQU $FF69
0800             97  ;
0800             98  ;
0800             99  ;
0800            100  ;
0800            101  **********************************
0800            102  ;
0800            103  ;
0800            104  ;  SPEED/ASM mini-mailing list pgm.
0800            105  ;
0800            106  ;
0800            107  ;
0800            108  ;  This program demonstrates a practical
0800            109  ;  application of the SPEED/ASM routines
0800            110  ;  running under Apple DOS.
0800            111  ;
0800            112  ;   
0800            113  ;  This section of code provides the
0800            114  ;  input module. The following information
0800            115  ;  is read in and written to the disk.
0800            116  ;
0800            117  ;
0800            118  ;  First name: 13 characters.
0800            119  ;  Last name:  13 characters.
0800            120  ;  C/O:        25 characters.
0800            121  ;  Street:     31 characters.
0800            122  ;  City:       15 characters.
0800            123  ;  State:       4 characters.
0800            124  ;  Zipcode:    11 characters.
0800            125  ;  Phone:      16 characters.
0800            126  ;
0800            127  ;
0800            128  ;
0800            129  **********************************
0800            130  *
0800            131  *
0800            132  *  SPEED/ASM initialization and
0800            133  *  title page.
0800            134  *
0800            135  **********************************
0800            136  ;
0800            137  ;
0800 20 12 78   138  BEGIN    JSR INIT            ; Always before using SPEED/A
0803            139  ;
0803            140  ;
0803            141  ;
0803            142  **********************************
0803            143  *
0803            144  *  Mini-Mailer Main Loop
0803            145  *
0803            146  **********************************
0803            147  ;
0803            148  ;
0803            149  ;
0803            150  ;
0803 20 36 78   151           JSR PRINT
0806 8D 8D C9   152           BYT CR,CR,"Insert disk with the MAIL.LIST",CR
0809 EE F3 E5 
080C F2 F4 A0 
080F E4 E9 F3 
0812 EB A0 F7 
0815 E9 F4 E8 
0818 A0 F4 E8 
081B E5 A0 CD 
081E C1 C9 CC 
0821 AE CC C9 
0824 D3 D4 8D 
0827 A8 E9 E6   153           BYT "(if you have one) into the active drive",CR
082A A0 F9 EF 
082D F5 A0 E8 
0830 E1 F6 E5 
0833 A0 EF EE 
0836 E5 A9 A0 
0839 E9 EE F4 
083C EF A0 F4 
083F E8 E5 A0 
0842 E1 E3 F4 
0845 E9 F6 E5 
0848 A0 E4 F2 
084B E9 F6 E5 
084E 8D 
084F E1 EE E4   154           BYT "and press return: ",0
0852 A0 F0 F2 
0855 E5 F3 F3 
0858 A0 F2 E5 
085B F4 F5 F2 
085E EE BA A0 
0861 00 
0862 20 0F 78   155           JSR READLN
0865            156  ;
0865 20 36 78   157           JSR PRINT
0868 8D 84 CF   158           BYT CR,CTLD,"OPEN MAIL.LIST,L128",CR
086B D0 C5 CE 
086E A0 CD C1 
0871 C9 CC AE 
0874 CC C9 D3 
0877 D4 AC CC 
087A B1 B2 B8 
087D 8D 
087E 84 CE CF   159           BYT CTLD,"NOMON O,I,C",CR,0
0881 CD CF CE 
0884 A0 CF AC 
0887 C9 AC C3 
088A 8D 00 
088C            160  ;
088C            161  ;
088C            162  ;
088C            163  ;
088C 20 0C 78   164  MAINLOOP JSR HOME
088F 20 36 78   165           JSR PRINT
0892 8D 8D D3   166           BYT CR,CR,"SPEED/ASM Mini-Mailing List Program",CR,CR
0895 D0 C5 C5 
0898 C4 AF C1 
089B D3 CD A0 
089E CD E9 EE 
08A1 E9 AD CD 
08A4 E1 E9 EC 
08A7 E9 EE E7 
08AA A0 CC E9 
08AD F3 F4 A0 
08B0 D0 F2 EF 
08B3 E7 F2 E1 
08B6 ED 8D 8D 
08B9 C9 EE F0   167           BYT "Input Module:",CR,CR
08BC F5 F4 A0 
08BF CD EF E4 
08C2 F5 EC E5 
08C5 BA 8D 8D 
08C8 A0 A0 A0   168           BYT "    A) add records",CR
08CB A0 C1 A9 
08CE A0 E1 E4 
08D1 E4 A0 F2 
08D4 E5 E3 EF 
08D7 F2 E4 F3 
08DA 8D 
08DB A0 A0 A0   169           BYT "    D) Delete a record",CR
08DE A0 C4 A9 
08E1 A0 C4 E5 
08E4 EC E5 F4 
08E7 E5 A0 E1 
08EA A0 F2 E5 
08ED E3 EF F2 
08F0 E4 8D 
08F2 A0 A0 A0   170           BYT "    O) Open a new file",CR
08F5 A0 CF A9 
08F8 A0 CF F0 
08FB E5 EE A0 
08FE E1 A0 EE 
0901 E5 F7 A0 
0904 E6 E9 EC 
0907 E5 8D 
0909 A0 A0 A0   171           BYT "    P) Print file",CR
090C A0 D0 A9 
090F A0 D0 F2 
0912 E9 EE F4 
0915 A0 E6 E9 
0918 EC E5 8D 
091B 8D         172           BYT CR
091C A0 A0 A0   173           BYT "    Q) Quit",CR,CR
091F A0 D1 A9 
0922 A0 D1 F5 
0925 E9 F4 8D 
0928 8D 
0929 C3 E8 EF   174           BYT "Choice: ",0
092C E9 E3 E5 
092F BA A0 00 
0932            175  ;
0932            176  ;
0932            177  ;
0932            178  ;
0932            179  ;  READLN(INPUTSTR);
0932            180  ;
0932 20 0F 78   181           JSR READLN
0935 20 3F 78   182           JSR RDSTR
0938 F6 11      183           ADR INPUTSTR
093A            184  ;
093A            185  ;
093A            186  ;  IF (INPUTSTR = "A") OR (INPUTSTR = "a") THEN
093A            187  ;       GOTO ADDRECS;
093A            188  ;
093A 20 27 78   189           JSR IFS0
093D F6 11 BD   190           ADR INPUTSTR,EQ
0940 00 
0941 C1 00      191           BYT "A",0
0943 D0 0E      192           BTR ADDRECS
0945 20 27 78   193           JSR IFS0
0948 F6 11 BD   194           ADR INPUTSTR,EQ
094B 00 
094C E1 00      195           BYT "a",0
094E D0 03      196           BTR ADDRECS
0950 4C 8B 0C   197           JMP TSTFORD
0953            198  ;
0953            199  ;
0953            200  ;
0953            201  ;
0953            202           TTL "Mini-Mailing List:  Add Module"
0953            203  ;
0953            204  ;
0953            205  ;
0953            206  ;
0953            207  **********************************
0953            208  ;
0953            209  ;
0953            210  ;  Handle the "A" option here.
0953            211  ;
0953 20 0C 78   212  ADDRECS  JSR HOME
0956 20 36 78   213           JSR PRINT
0959 8D 8D      214           BYT CR,CR
095B C1 E4 E4   215           BYT "Add records module:",CR,CR,0
095E A0 F2 E5 
0961 E3 EF F2 
0964 E4 F3 A0 
0967 ED EF E4 
096A F5 EC E5 
096D BA 8D 8D 
0970 00 
0971            216  ;
0971            217  ;
0971            218  ;
0971            219  ;
0971 20 36 78   220  NOERROR  JSR PRINT
0974 8D 84 D2   221           BYT CR,CTLD,"READ MAIL.LIST,R0,B0",CR,0
0977 C5 C1 C4 
097A A0 CD C1 
097D C9 CC AE 
0980 CC C9 D3 
0983 D4 AC D2 
0986 B0 AC C2 
0989 B0 8D 00 
098C            222  ;   
098C            223  ;  Read in the number of records in this
098C            224  ;  file into NUMRECS.
098C            225  ;
098C 20 0F 78   226           JSR READLN
098F 20 42 78   227           JSR RDINT
0992 F2 11      228           ADR NUMRECS
0994 20 36 78   229           JSR PRINT           ;Turn off read cmd.
0997 8D 84 8D   230           BYT CR,CTLD,CR,0
099A 00 
099B            231  ;
099B            232  ;
099B            233  ;
099B            234  ;
099B            235  ;
099B            236  ;  Get the information to write to
099B            237  ;  the file.
099B            238  ;
099B 20 36 78   239  GETFNAME JSR PRINT
099E 8D C5 EE   240           BYT CR,"Enter First name: ",0
09A1 F4 E5 F2 
09A4 A0 C6 E9 
09A7 F2 F3 F4 
09AA A0 EE E1 
09AD ED E5 BA 
09B0 A0 00 
09B2 20 0F 78   241           JSR READLN
09B5 20 3F 78   242           JSR RDSTR
09B8 78 12      243           ADR FIRSTNAM
09BA 50 1D      244           BVC GETLNAME
09BC            245  ;
09BC 20 36 78   246           JSR PRINT
09BF 8D 87 D2   247           BYT CR,BELL,"Re-enter first name",CR,0
09C2 E5 AD E5 
09C5 EE F4 E5 
09C8 F2 A0 E6 
09CB E9 F2 F3 
09CE F4 A0 EE 
09D1 E1 ED E5 
09D4 8D 00 
09D6 4C 9B 09   248           JMP GETFNAME
09D9            249  ;
09D9            250  ;
09D9            251  ;
09D9 20 36 78   252  GETLNAME JSR PRINT
09DC 8D C5 EE   253           BYT CR,"Enter Last name: ",0
09DF F4 E5 F2 
09E2 A0 CC E1 
09E5 F3 F4 A0 
09E8 EE E1 ED 
09EB E5 BA A0 
09EE 00 
09EF 20 0F 78   254           JSR READLN
09F2 20 3F 78   255           JSR RDSTR
09F5 85 12      256           ADR LASTNAME
09F7 50 1C      257           BVC GETAUX
09F9            258  ;
09F9 20 36 78   259           JSR PRINT
09FC 8D 87 D2   260           BYT CR,BELL,"Re-enter last name",CR,0
09FF E5 AD E5 
0A02 EE F4 E5 
0A05 F2 A0 EC 
0A08 E1 F3 F4 
0A0B A0 EE E1 
0A0E ED E5 8D 
0A11 00 
0A12 4C D9 09   261           JMP GETLNAME
0A15            262  ;
0A15            263  ;
0A15            264  ;
0A15 20 36 78   265  GETAUX   JSR PRINT
0A18 C5 EE F4   266           BYT "Enter auxiliary info: ",0
0A1B E5 F2 A0 
0A1E E1 F5 F8 
0A21 E9 EC E9 
0A24 E1 F2 F9 
0A27 A0 E9 EE 
0A2A E6 EF BA 
0A2D A0 00 
0A2F 20 0F 78   267           JSR READLN
0A32 20 3F 78   268           JSR RDSTR
0A35 92 12      269           ADR AUXINFO
0A37 50 28      270           BVC GETSTRT
0A39            271  ;
0A39 20 36 78   272           JSR PRINT
0A3C 8D 87 D2   273           BYT CR,BELL,"Re-enter Auxiliary information",CR,0
0A3F E5 AD E5 
0A42 EE F4 E5 
0A45 F2 A0 C1 
0A48 F5 F8 E9 
0A4B EC E9 E1 
0A4E F2 F9 A0 
0A51 E9 EE E6 
0A54 EF F2 ED 
0A57 E1 F4 E9 
0A5A EF EE 8D 
0A5D 00 
0A5E 4C 15 0A   274           JMP GETAUX
0A61            275  ;
0A61            276  ;
0A61            277  ;
0A61 20 36 78   278  GETSTRT  JSR PRINT
0A64 8D C5 EE   279           BYT CR,"Enter street address: ",0
0A67 F4 E5 F2 
0A6A A0 F3 F4 
0A6D F2 E5 E5 
0A70 F4 A0 E1 
0A73 E4 E4 F2 
0A76 E5 F3 F3 
0A79 BA A0 00 
0A7C 20 0F 78   280           JSR READLN
0A7F 20 3F 78   281           JSR RDSTR
0A82 AB 12      282           ADR STRTADRS
0A84 50 21      283           BVC GETCITY
0A86            284  ;
0A86 20 36 78   285           JSR PRINT
0A89 8D 87 D2   286           BYT CR,BELL,"Re-enter street Address",CR,0
0A8C E5 AD E5 
0A8F EE F4 E5 
0A92 F2 A0 F3 
0A95 F4 F2 E5 
0A98 E5 F4 A0 
0A9B C1 E4 E4 
0A9E F2 E5 F3 
0AA1 F3 8D 00 
0AA4 4C 61 0A   287           JMP GETSTRT
0AA7            288  ;
0AA7            289  ;
0AA7            290  ;
0AA7 20 36 78   291  GETCITY  JSR PRINT
0AAA 8D C5 EE   292           BYT CR,"Enter city: ",0
0AAD F4 E5 F2 
0AB0 A0 E3 E9 
0AB3 F4 F9 BA 
0AB6 A0 00 
0AB8 20 0F 78   293           JSR READLN
0ABB 20 3F 78   294           JSR RDSTR
0ABE CA 12      295           ADR CITY
0AC0 50 17      296           BVC GETSTATE
0AC2            297  ;
0AC2 20 36 78   298           JSR PRINT
0AC5 8D 87 D2   299           BYT CR,BELL,"Re-enter city",CR,0
0AC8 E5 AD E5 
0ACB EE F4 E5 
0ACE F2 A0 E3 
0AD1 E9 F4 F9 
0AD4 8D 00 
0AD6 4C A7 0A   300           JMP GETCITY
0AD9            301  ;
0AD9            302  ;
0AD9            303  ;
0AD9 20 36 78   304  GETSTATE JSR PRINT
0ADC 8D C5 EE   305           BYT CR,"Enter state: ",0
0ADF F4 E5 F2 
0AE2 A0 F3 F4 
0AE5 E1 F4 E5 
0AE8 BA A0 00 
0AEB 20 0F 78   306           JSR READLN
0AEE 20 3F 78   307           JSR RDSTR
0AF1 D9 12      308           ADR STATE
0AF3 50 18      309           BVC GETZIP
0AF5            310  ;
0AF5 20 36 78   311           JSR PRINT
0AF8 8D 87 D2   312           BYT CR,BELL,"Re-enter State",CR,0
0AFB E5 AD E5 
0AFE EE F4 E5 
0B01 F2 A0 D3 
0B04 F4 E1 F4 
0B07 E5 8D 00 
0B0A 4C D9 0A   313           JMP GETSTATE
0B0D            314  ;
0B0D            315  ;
0B0D            316  ;
0B0D 20 36 78   317  GETZIP   JSR PRINT
0B10 8D C5 EE   318           BYT CR,"Enter Zipcode: ",0
0B13 F4 E5 F2 
0B16 A0 DA E9 
0B19 F0 E3 EF 
0B1C E4 E5 BA 
0B1F A0 00 
0B21 20 0F 78   319           JSR READLN
0B24 20 3F 78   320           JSR RDSTR
0B27 DD 12      321           ADR ZIPCODE
0B29 50 1A      322           BVC GETPHONE
0B2B            323  ;
0B2B 20 36 78   324           JSR PRINT
0B2E 8D 87 D2   325           BYT CR,BELL,"Re-enter zipcode",CR,0
0B31 E5 AD E5 
0B34 EE F4 E5 
0B37 F2 A0 FA 
0B3A E9 F0 E3 
0B3D EF E4 E5 
0B40 8D 00 
0B42 4C 0D 0B   326           JMP GETZIP
0B45            327  ;
0B45            328  ;
0B45            329  ;
0B45 20 36 78   330  GETPHONE JSR PRINT
0B48 8D C5 EE   331           BYT CR,"Enter Phone #: ",0
0B4B F4 E5 F2 
0B4E A0 D0 E8 
0B51 EF EE E5 
0B54 A0 A3 BA 
0B57 A0 00 
0B59 20 0F 78   332           JSR READLN
0B5C 20 3F 78   333           JSR RDSTR
0B5F E8 12      334           ADR PHONENUM
0B61 50 1F      335           BVC WRTINFO
0B63            336  ;
0B63 20 36 78   337           JSR PRINT
0B66 8D 87 D2   338           BYT CR,BELL,"Re-enter Phone number",CR,0
0B69 E5 AD E5 
0B6C EE F4 E5 
0B6F F2 A0 D0 
0B72 E8 EF EE 
0B75 E5 A0 EE 
0B78 F5 ED E2 
0B7B E5 F2 8D 
0B7E 00 
0B7F 4C 45 0B   339           JMP GETPHONE
0B82            340  ;
0B82            341  ;
0B82            342  ;
0B82 18         343  WRTINFO  CLC 
0B83 AD F2 11   344           LDA NUMRECS
0B86 69 01      345           ADC #1
0B88 8D F4 11   346           STA RECNUM
0B8B AD F3 11   347           LDA NUMRECS+1
0B8E 69 00      348           ADC /1
0B90 8D F5 11   349           STA RECNUM+1
0B93            350  ;
0B93            351  ;
0B93            352  ;  PRINT CHR$(4) ;"WRITE MAIL.LIST,R"; RECNUM; ",B0"
0B93            353  ;
0B93 20 36 78   354           JSR PRINT
0B96 8D 84 D7   355           BYT CR,CTLD,"WRITE MAIL.LIST,R",0
0B99 D2 C9 D4 
0B9C C5 A0 CD 
0B9F C1 C9 CC 
0BA2 AE CC C9 
0BA5 D3 D4 AC 
0BA8 D2 00 
0BAA 20 3C 78   356           JSR PRTINT
0BAD F4 11      357           ADR RECNUM
0BAF 20 36 78   358           JSR PRINT
0BB2 AC C2 B0   359           BYT ",B0",CR,0
0BB5 8D 00 
0BB7            360  ;
0BB7            361  ;
0BB7 20 39 78   362           JSR PRTSTR
0BBA 78 12      363           ADR FIRSTNAM
0BBC 20 E9 11   364           JSR WRITELN
0BBF            365  ;
0BBF 20 39 78   366           JSR PRTSTR
0BC2 85 12      367           ADR LASTNAME
0BC4 20 E9 11   368           JSR WRITELN
0BC7            369  ;
0BC7 20 39 78   370           JSR PRTSTR
0BCA 92 12      371           ADR AUXINFO
0BCC 20 E9 11   372           JSR WRITELN
0BCF            373  ;
0BCF 20 39 78   374           JSR PRTSTR
0BD2 AB 12      375           ADR STRTADRS
0BD4 20 E9 11   376           JSR WRITELN
0BD7            377  ;
0BD7 20 39 78   378           JSR PRTSTR
0BDA CA 12      379           ADR CITY
0BDC 20 E9 11   380           JSR WRITELN
0BDF            381  ;
0BDF 20 39 78   382           JSR PRTSTR
0BE2 D9 12      383           ADR STATE
0BE4 20 E9 11   384           JSR WRITELN
0BE7            385  ;
0BE7 20 39 78   386           JSR PRTSTR
0BEA DD 12      387           ADR ZIPCODE
0BEC 20 E9 11   388           JSR WRITELN
0BEF            389  ;
0BEF 20 39 78   390           JSR PRTSTR
0BF2 E8 12      391           ADR PHONENUM
0BF4 20 E9 11   392           JSR WRITELN
0BF7            393  ;
0BF7            394  ;
0BF7            395  ;  Turn off output to the file.
0BF7            396  ;
0BF7 20 36 78   397           JSR PRINT
0BFA 84 8D 00   398           BYT CTLD,CR,0
0BFD            399  ;   
0BFD            400  ;  NUMRECS = RECNUM (Which contains NU MRECS+1 )
0BFD            401  ;   
0BFD 20 2A 78   402           JSR MOVE
0C00 F4 11 F2   403           ADR RECNUM,NUMRECS
0C03 11 
0C04            404  ;
0C04            405  ;
0C04 20 36 78   406  GETYORNO JSR PRINT
0C07 8D 8D C1   407           BYT CR,CR,"Add another record? (Y/N): ",0
0C0A E4 E4 A0 
0C0D E1 EE EF 
0C10 F4 E8 E5 
0C13 F2 A0 F2 
0C16 E5 E3 EF 
0C19 F2 E4 BF 
0C1C A0 A8 D9 
0C1F AF CE A9 
0C22 BA A0 00 
0C25 20 0F 78   408           JSR READLN
0C28 20 3F 78   409           JSR RDSTR
0C2B F6 11      410           ADR INPUTSTR
0C2D            411  ;
0C2D 20 27 78   412           JSR IFS0
0C30 F6 11 BD   413           ADR INPUTSTR,EQ
0C33 00 
0C34 CE 00      414           BYT "N",0
0C36 D0 24      415           BTR EXITADD
0C38            416  ;
0C38 20 27 78   417           JSR IFS0
0C3B F6 11 BD   418           ADR INPUTSTR,EQ
0C3E 00 
0C3F F9 00      419           BYT "y",0
0C41 D0 19      420           BTR EXITADD
0C43            421  ;
0C43 20 27 78   422           JSR IFS0
0C46 F6 11 BD   423           ADR INPUTSTR,EQ
0C49 00 
0C4A D9 00      424           BYT "Y",0
0C4C D0 0B      425           BTR DOAGAIN
0C4E            426  ;
0C4E 20 27 78   427           JSR IFS0
0C51 F6 11 BD   428           ADR INPUTSTR,EQ
0C54 00 
0C55 F9 00      429           BYT "y",0
0C57 F0 AB      430           BFL GETYORNO
0C59            431  ;
0C59 4C 9B 09   432  DOAGAIN  JMP GETFNAME
0C5C            433  ;
0C5C            434  ;
0C5C            435  ;  Before exiting, update the record
0C5C            436  ;  count
0C5C            437  ;
0C5C 20 36 78   438  EXITADD  JSR PRINT
0C5F 8D 84 D7   439           BYT CR,CTLD,"WRITE MAIL.LIST,R0,B0",CR
0C62 D2 C9 D4 
0C65 C5 A0 CD 
0C68 C1 C9 CC 
0C6B AE CC C9 
0C6E D3 D4 AC 
0C71 D2 B0 AC 
0C74 C2 B0 8D 
0C77 00         440           BYT 0
0C78            441  ;
0C78            442  ;
0C78 20 3C 78   443           JSR PRTINT
0C7B F2 11      444           ADR NUMRECS
0C7D 20 36 78   445           JSR PRINT
0C80 A0 A0 A0   446           BYT "    ",CR,CTLD,CR,0
0C83 A0 8D 84 
0C86 8D 00 
0C88 4C 8C 08   447           JMP MAINLOOP
0C8B            448  ;
0C8B            449  ;
0C8B            450  ;
0C8B            451  ;
0C8B            452  ;
0C8B            453  ;
0C8B            454           TTL "Mini-Mailer: Delete Module"
0C8B            455  ;
0C8B            456  **********************************
0C8B            457  ;
0C8B            458  ;
0C8B 20 27 78   459  TSTFORD  JSR IFS0
0C8E F6 11 BD   460           ADR INPUTSTR,EQ
0C91 00 
0C92 C4 00      461           BYT "D",0
0C94 D0 0E      462           BTR ISD
0C96            463  ;
0C96 20 27 78   464           JSR IFS0
0C99 F6 11 BD   465           ADR INPUTSTR,EQ
0C9C 00 
0C9D E4 00      466           BYT "d",0
0C9F D0 03      467           BTR ISD
0CA1 4C 3D 0E   468           JMP TSTFOR0
0CA4            469  ;
0CA4 20 36 78   470  ISD      JSR PRINT
0CA7 8D 8D C4   471           BYT CR,CR,"Delete which record? ",0
0CAA E5 EC E5 
0CAD F4 E5 A0 
0CB0 F7 E8 E9 
0CB3 E3 E8 A0 
0CB6 F2 E5 E3 
0CB9 EF F2 E4 
0CBC BF A0 00 
0CBF 20 0F 78   472           JSR READLN
0CC2 20 42 78   473           JSR RDINT
0CC5 F4 11      474           ADR RECNUM
0CC7 50 29      475           BVC GOODNUM
0CC9            476  ;
0CC9 20 36 78   477           JSR PRINT
0CCC 8D 87 C9   478           BYT CR,BELL,"Illegal record number, re-enter",CR,0
0CCF EC EC E5 
0CD2 E7 E1 EC 
0CD5 A0 F2 E5 
0CD8 E3 EF F2 
0CDB E4 A0 EE 
0CDE F5 ED E2 
0CE1 E5 F2 AC 
0CE4 A0 F2 E5 
0CE7 AD E5 EE 
0CEA F4 E5 F2 
0CED 8D 00 
0CEF 4C 8B 0C   479           JMP TSTFORD
0CF2            480  ;
0CF2            481  ;
0CF2            482  ;  See if this is a valid record number.
0CF2            483  ;
0CF2 20 36 78   484  GOODNUM  JSR PRINT
0CF5 8D 84 D2   485           BYT CR,CTLD,"READ MAIL.LIST,R0,B0",CR,0
0CF8 C5 C1 C4 
0CFB A0 CD C1 
0CFE C9 CC AE 
0D01 CC C9 D3 
0D04 D4 AC D2 
0D07 B0 AC C2 
0D0A B0 8D 00 
0D0D 20 0F 78   486           JSR READLN
0D10 20 42 78   487           JSR RDINT
0D13 F2 11      488           ADR NUMRECS
0D15            489  ;
0D15 20 1E 78   490           JSR IFI
0D18 F4 11 BC   491           ADR RECNUM,LE,NUMRECS
0D1B BD F2 11 
0D1E D0 3F      492           BTR RECOK
0D20            493  ;
0D20 20 36 78   494           JSR PRINT
0D23 8D D4 E8   495           BYT CR,"That record doesn't exist",CR
0D26 E1 F4 A0 
0D29 F2 E5 E3 
0D2C EF F2 E4 
0D2F A0 E4 EF 
0D32 E5 F3 EE 
0D35 A7 F4 A0 
0D38 E5 F8 E9 
0D3B F3 F4 8D 
0D3E 8D D0 F2   496           BYT CR,"Press return to continue:",0
0D41 E5 F3 F3 
0D44 A0 F2 E5 
0D47 F4 F5 F2 
0D4A EE A0 F4 
0D4D EF A0 E3 
0D50 EF EE F4 
0D53 E9 EE F5 
0D56 E5 BA 00 
0D59 20 0F 78   497           JSR READLN
0D5C 4C 8C 08   498           JMP MAINLOOP
0D5F            499  ;
0D5F 20 36 78   500  RECOK    JSR PRINT
0D62 8D 84 D7   501           BYT CR,CTLD,"WRITE MAIL.LIST,R",0
0D65 D2 C9 D4 
0D68 C5 A0 CD 
0D6B C1 C9 CC 
0D6E AE CC C9 
0D71 D3 D4 AC 
0D74 D2 00 
0D76 20 3C 78   502           JSR PRTINT
0D79 F4 11      503           ADR RECNUM
0D7B 20 36 78   504           JSR PRINT
0D7E AC C2 B0   505           BYT ",B0",CR
0D81 8D 
0D82 80 8D      506           BYT $80,CR
0D84 84 8D 00   507           BYT CTLD,CR,0
0D87            508  ;
0D87 20 36 78   509           JSR PRINT
0D8A 8D 8D C4   510           BYT CR,CR,"Deleted",CR
0D8D E5 EC E5 
0D90 F4 E5 E4 
0D93 8D 
0D94 D0 F2 E5   511           BYT "Press return to continue:",0
0D97 F3 F3 A0 
0D9A F2 E5 F4 
0D9D F5 F2 EE 
0DA0 A0 F4 EF 
0DA3 A0 E3 EF 
0DA6 EE F4 E9 
0DA9 EE F5 E5 
0DAC BA 00 
0DAE 20 0F 78   512           JSR READLN
0DB1 4C 8C 08   513           JMP MAINLOOP
0DB4            514  ;
0DB4            515  ;
0DB4            516  ;
0DB4            517           TTL "Mini-Mailer: Status Module"
0DB4            518  ;
0DB4            519  ;
0DB4            520  **********************************
0DB4            521  ;
0DB4            522  ;
0DB4 20 27 78   523  TSTFORS  JSR IFS0
0DB7 F6 11 BD   524           ADR INPUTSTR,EQ
0DBA 00 
0DBB D3 00      525           BYT "S",0
0DBD D0 0E      526           BTR ISS
0DBF            527  ;
0DBF 20 27 78   528           JSR IFS0
0DC2 F6 11 BD   529           ADR INPUTSTR,EQ
0DC5 00 
0DC6 F3 00      530           BYT "s",0
0DC8 D0 03      531           BTR ISS
0DCA 4C 3D 0E   532           JMP TSTFOR0
0DCD            533  ;
0DCD            534  ;
0DCD 20 36 78   535  ISS      JSR PRINT
0DD0 8D 84 D2   536           BYT CR,CTLD,"READ MAIL.LIST,R0,B0",CR,0
0DD3 C5 C1 C4 
0DD6 A0 CD C1 
0DD9 C9 CC AE 
0DDC CC C9 D3 
0DDF D4 AC D2 
0DE2 B0 AC C2 
0DE5 B0 8D 00 
0DE8 20 0F 78   537           JSR READLN
0DEB 20 42 78   538           JSR RDINT
0DEE F2 11      539           ADR NUMRECS
0DF0            540  ;
0DF0 20 36 78   541           JSR PRINT
0DF3 8D D4 E8   542           BYT CR,"There are ",0
0DF6 E5 F2 E5 
0DF9 A0 E1 F2 
0DFC E5 A0 00 
0DFF 20 3C 78   543           JSR PRTINT
0E02 F2 11      544           ADR NUMRECS
0E04            545  ;
0E04 20 36 78   546           JSR PRINT
0E07 A0 F2 E5   547           BYT " records in the file",CR,CR
0E0A E3 EF F2 
0E0D E4 F3 A0 
0E10 E9 EE A0 
0E13 F4 E8 E5 
0E16 A0 E6 E9 
0E19 EC E5 8D 
0E1C 8D 
0E1D D0 F2 E5   548           BYT "Press return to continue:",0
0E20 F3 F3 A0 
0E23 F2 E5 F4 
0E26 F5 F2 EE 
0E29 A0 F4 EF 
0E2C A0 E3 EF 
0E2F EE F4 E9 
0E32 EE F5 E5 
0E35 BA 00 
0E37 20 0F 78   549           JSR READLN
0E3A 4C 8C 08   550           JMP MAINLOOP
0E3D            551  ;
0E3D            552  ;
0E3D            553  ;
0E3D            554           TTL "Mini-Mailer: New File Module"
0E3D            555  ;
0E3D            556  ;
0E3D            557  **********************************
0E3D            558  ;
0E3D            559  ;
0E3D 20 27 78   560  TSTFOR0  JSR IFS0
0E40 F6 11 BD   561           ADR INPUTSTR,EQ
0E43 00 
0E44 CF 00      562           BYT "O",0
0E46 D0 0E      563           BTR IS0
0E48            564  ;
0E48 20 27 78   565           JSR IFS0
0E4B F6 11 BD   566           ADR INPUTSTR,EQ
0E4E 00 
0E4F EF 00      567           BYT "o",0
0E51 D0 03      568           BTR IS0
0E53 4C D5 0F   569           JMP TSTFORP
0E56            570  ;
0E56            571  ;
0E56 20 36 78   572  IS0      JSR PRINT
0E59 8D C9 F3   573           BYT CR,"Is the previous disk still",CR
0E5C A0 F4 E8 
0E5F E5 A0 F0 
0E62 F2 E5 F6 
0E65 E9 EF F5 
0E68 F3 A0 E4 
0E6B E9 F3 EB 
0E6E A0 F3 F4 
0E71 E9 EC EC 
0E74 8D 
0E75 E9 EE A0   574           BYT "in the drive? (Y/N): ",0
0E78 F4 E8 E5 
0E7B A0 E4 F2 
0E7E E9 F6 E5 
0E81 BF A0 A8 
0E84 D9 AF CE 
0E87 A9 BA A0 
0E8A 00 
0E8B 20 0F 78   575           JSR READLN
0E8E 20 3F 78   576           JSR RDSTR
0E91 F6 11      577           ADR INPUTSTR
0E93            578  ;
0E93 20 27 78   579           JSR IFS0
0E96 F6 11 BD   580           ADR INPUTSTR,EQ
0E99 00 
0E9A D9 00      581           BYT "Y",0
0E9C D0 57      582           BTR ISYES
0E9E 20 27 78   583           JSR IFS0
0EA1 F6 11 BD   584           ADR INPUTSTR,EQ
0EA4 00 
0EA5 F9 00      585           BYT "y",0
0EA7 D0 4C      586           BTR ISYES
0EA9            587  ;
0EA9 20 36 78   588           JSR PRINT
0EAC 8D 87 D0   589           BYT CR,BELL,"Put the previous disk back into",CR
0EAF F5 F4 A0 
0EB2 F4 E8 E5 
0EB5 A0 F0 F2 
0EB8 E5 F6 E9 
0EBB EF F5 F3 
0EBE A0 E4 E9 
0EC1 F3 EB A0 
0EC4 E2 E1 E3 
0EC7 EB A0 E9 
0ECA EE F4 EF 
0ECD 8D 
0ECE F4 E8 E5   590           BYT "the active drive before continuing",CR,0
0ED1 A0 E1 E3 
0ED4 F4 E9 F6 
0ED7 E5 A0 E4 
0EDA F2 E9 F6 
0EDD E5 A0 E2 
0EE0 E5 E6 EF 
0EE3 F2 E5 A0 
0EE6 E3 EF EE 
0EE9 F4 E9 EE 
0EEC F5 E9 EE 
0EEF E7 8D 00 
0EF2 4C 56 0E   591           JMP IS0
0EF5            592  ;
0EF5            593  ;
0EF5 20 36 78   594  ISYES    JSR PRINT
0EF8 8D 84 C3   595           BYT CR,CTLD,"CLOSE",CR,0
0EFB CC CF D3 
0EFE C5 8D 00 
0F01            596  ;
0F01 20 36 78   597           JSR PRINT
0F04 8D D0 EC   598           BYT CR,"Place the diskette you wish to create",CR
0F07 E1 E3 E5 
0F0A A0 F4 E8 
0F0D E5 A0 E4 
0F10 E9 F3 EB 
0F13 E5 F4 F4 
0F16 E5 A0 F9 
0F19 EF F5 A0 
0F1C F7 E9 F3 
0F1F E8 A0 F4 
0F22 EF A0 E3 
0F25 F2 E5 E1 
0F28 F4 E5 8D 
0F2B E1 A0 A2   599           BYT "a ""MAIL.LIST"" file on into the active",CR
0F2E CD C1 C9 
0F31 CC AE CC 
0F34 C9 D3 D4 
0F37 A2 A0 E6 
0F3A E9 EC E5 
0F3D A0 EF EE 
0F40 A0 E9 EE 
0F43 F4 EF A0 
0F46 F4 E8 E5 
0F49 A0 E1 E3 
0F4C F4 E9 F6 
0F4F E5 8D 
0F51 E4 E9 F3   600           BYT "disk drive",CR
0F54 EB A0 E4 
0F57 F2 E9 F6 
0F5A E5 8D 
0F5C E1 EE E4   601           BYT "and press return: ",0
0F5F A0 F0 F2 
0F62 E5 F3 F3 
0F65 A0 F2 E5 
0F68 F4 F5 F2 
0F6B EE BA A0 
0F6E 00 
0F6F            602  ;
0F6F 20 0F 78   603           JSR READLN
0F72 20 36 78   604           JSR PRINT
0F75 8D 84 CF   605           BYT CR,CTLD,"OPEN MAIL.LIST,L128",CR
0F78 D0 C5 CE 
0F7B A0 CD C1 
0F7E C9 CC AE 
0F81 CC C9 D3 
0F84 D4 AC CC 
0F87 B1 B2 B8 
0F8A 8D 
0F8B 84 D7 D2   606           BYT CTLD,"WRITE MAIL.LIST",CR
0F8E C9 D4 C5 
0F91 A0 CD C1 
0F94 C9 CC AE 
0F97 CC C9 D3 
0F9A D4 8D 
0F9C B0 A0 A0   607           BYT "0      ",CR
0F9F A0 A0 A0 
0FA2 A0 8D 
0FA4 84 8D 00   608           BYT CTLD,CR,0
0FA7            609  ;
0FA7            610  ;
0FA7 20 36 78   611           JSR PRINT
0FAA 8D C1 EC   612           BYT CR,"All done, press return to continue:",0
0FAD EC A0 E4 
0FB0 EF EE E5 
0FB3 AC A0 F0 
0FB6 F2 E5 F3 
0FB9 F3 A0 F2 
0FBC E5 F4 F5 
0FBF F2 EE A0 
0FC2 F4 EF A0 
0FC5 E3 EF EE 
0FC8 F4 E9 EE 
0FCB F5 E5 BA 
0FCE 00 
0FCF 20 0F 78   613           JSR READLN
0FD2 4C 8C 08   614           JMP MAINLOOP
0FD5            615  ;
0FD5            616  ;
0FD5            617  ;
0FD5            618           TTL "Mini-Mailer: Print Module "
0FD5            619  ;
0FD5            620  ;
0FD5            621  **********************************
0FD5            622  ;
0FD5            623  ;
0FD5 20 27 78   624  TSTFORP  JSR IFS0
0FD8 F6 11 BD   625           ADR INPUTSTR,EQ
0FDB 00 
0FDC D0 00      626           BYT "P",0
0FDE D0 0E      627           BTR ISP
0FE0            628  ;
0FE0 20 27 78   629           JSR IFS0
0FE3 F6 11 BD   630           ADR INPUTSTR,EQ
0FE6 00 
0FE7 F0 00      631           BYT "p",0
0FE9 D0 03      632           BTR ISP
0FEB 4C 53 11   633           JMP TSTFORQ
0FEE            634  ;
0FEE            635  ;
0FEE 20 36 78   636  ISP      JSR PRINT
0FF1 8D D3 E5   637           BYT CR,"Send output to what slot?",CR
0FF4 EE E4 A0 
0FF7 EF F5 F4 
0FFA F0 F5 F4 
0FFD A0 F4 EF 
1000 A0 F7 E8 
1003 E1 F4 A0 
1006 F3 EC EF 
1009 F4 BF 8D 
100C A8 FA E5   638           BYT "(zero for screen): ",0
100F F2 EF A0 
1012 E6 EF F2 
1015 A0 F3 E3 
1018 F2 E5 E5 
101B EE A9 BA 
101E A0 00 
1020 20 0F 78   639           JSR READLN
1023 20 42 78   640           JSR RDINT
1026 F0 11      641           ADR I
1028            642  ;
1028            643  ;
1028 20 36 78   644           JSR PRINT
102B 8D 84 D2   645           BYT CR,CTLD,"READ MAIL.LIST,R0,B0",CR,0
102E C5 C1 C4 
1031 A0 CD C1 
1034 C9 CC AE 
1037 CC C9 D3 
103A D4 AC D2 
103D B0 AC C2 
1040 B0 8D 00 
1043 20 0F 78   646           JSR READLN
1046 20 42 78   647           JSR RDINT
1049 F2 11      648           ADR NUMRECS
104B            649  ;
104B 20 36 78   650           JSR PRINT
104E 8D 84 D0   651           BYT CR,CTLD,"PR#",0
1051 D2 A3 00 
1054 20 3C 78   652           JSR PRTINT
1057 F0 11      653           ADR I
1059 20 E9 11   654           JSR WRITELN
105C            655  ;
105C            656  ;
105C            657  ;
105C            658  ;  FOR I = 1 TO NUMRECS STEP 1
105C            659  ;
105C 20 15 78   660           JSR FOR
105F F0 11 EE   661           ADR I,ONE,NUMRECS,ONE
1062 11 F2 11 
1065 EE 11 
1067            662  ;
1067 20 36 78   663           JSR PRINT
106A 84 D2 C5   664           BYT CTLD,"READ MAIL.LIST,B0,R",0
106D C1 C4 A0 
1070 CD C1 C9 
1073 CC AE CC 
1076 C9 D3 D4 
1079 AC C2 B0 
107C AC D2 00 
107F 20 3C 78   665           JSR PRTINT
1082 F0 11      666           ADR I
1084 20 E9 11   667           JSR WRITELN
1087            668  ;
1087 20 0F 78   669           JSR READLN
108A 20 3F 78   670           JSR RDSTR
108D 78 12      671           ADR FIRSTNAM
108F            672  ;   
108F            673  ;  Check to see if this is a deleted ,
108F            674  ;  record or not.
108F            675  ;
108F 20 27 78   676           JSR IFS0
1092 78 12 BD   677           ADR FIRSTNAM,EQ
1095 00 
1096 80 00      678           BYT $80,0
1098 F0 03      679           BFL NOTDLTD
109A 4C 24 11   680           JMP NEXTP
109D            681  ;
109D            682  ;
109D 20 0F 78   683  NOTDLTD  JSR READLN
10A0 20 3F 78   684           JSR RDSTR
10A3 85 12      685           ADR LASTNAME
10A5            686  ;
10A5 20 0F 78   687           JSR READLN
10A8 20 3F 78   688           JSR RDSTR
10AB 92 12      689           ADR AUXINFO
10AD            690  ;
10AD 20 0F 78   691           JSR READLN
10B0 20 3F 78   692           JSR RDSTR
10B3 AB 12      693           ADR STRTADRS
10B5            694  ;
10B5 20 0F 78   695           JSR READLN
10B8 20 3F 78   696           JSR RDSTR
10BB CA 12      697           ADR CITY
10BD            698  ;
10BD 20 0F 78   699           JSR READLN
10C0 20 3F 78   700           JSR RDSTR
10C3 D9 12      701           ADR STATE
10C5            702  ;
10C5 20 0F 78   703           JSR READLN
10C8 20 3F 78   704           JSR RDSTR
10CB DD 12      705           ADR ZIPCODE
10CD            706  ;
10CD 20 0F 78   707           JSR READLN
10D0 20 3F 78   708           JSR RDSTR
10D3 E8 12      709           ADR PHONENUM
10D5            710  ;
10D5            711  ;
10D5 20 39 78   712           JSR PRTSTR
10D8 85 12      713           ADR LASTNAME
10DA 20 36 78   714           JSR PRINT
10DD AC A0 00   715           BYT ", ",0
10E0 20 39 78   716           JSR PRTSTR
10E3 78 12      717           ADR FIRSTNAM
10E5 20 E9 11   718           JSR WRITELN
10E8            719  ;
10E8 20 39 78   720           JSR PRTSTR
10EB 92 12      721           ADR AUXINFO
10ED 20 E9 11   722           JSR WRITELN
10F0            723  ;
10F0 20 39 78   724           JSR PRTSTR
10F3 AB 12      725           ADR STRTADRS
10F5 20 E9 11   726           JSR WRITELN
10F8            727  ;
10F8 20 39 78   728           JSR PRTSTR
10FB CA 12      729           ADR CITY
10FD 20 36 78   730           JSR PRINT
1100 AC A0 00   731           BYT ", ",0
1103 20 39 78   732           JSR PRTSTR
1106 D9 12      733           ADR STATE
1108 20 36 78   734           JSR PRINT
110B A0 A0 00   735           BYT "  ",0
110E 20 39 78   736           JSR PRTSTR
1111 DD 12      737           ADR ZIPCODE
1113 20 E9 11   738           JSR WRITELN
1116            739  ;
1116 20 39 78   740           JSR PRTSTR
1119 E8 12      741           ADR PHONENUM
111B 20 E9 11   742           JSR WRITELN
111E 20 E9 11   743           JSR WRITELN
1121 20 E9 11   744           JSR WRITELN
1124            745  ;
1124 20 1B 78   746  NEXTP    JSR NEXT
1127            747  ;
1127            748  ;
1127 20 36 78   749           JSR PRINT
112A 8D 84 D0   750           BYT CR,CTLD,"PR#0",CR
112D D2 A3 B0 
1130 8D 
1131 8D 8D      751           BYT CR,CR
1133 D0 F2 E5   752           BYT "Press return to continue:",0
1136 F3 F3 A0 
1139 F2 E5 F4 
113C F5 F2 EE 
113F A0 F4 EF 
1142 A0 E3 EF 
1145 EE F4 E9 
1148 EE F5 E5 
114B BA 00 
114D 20 0F 78   753           JSR READLN
1150 4C 8C 08   754           JMP MAINLOOP
1153            755  ;
1153            756  ;
1153            757  ;
1153            758  ;
1153            759           TTL "Auxiliary routines, etc."
1153            760  ;
1153            761  ;
1153 20 27 78   762  TSTFORQ  JSR IFS0
1156 F6 11 BD   763           ADR INPUTSTR,EQ
1159 00 
115A D1 00      764           BYT "Q",0
115C D0 16      765           BTR QUIT
115E            766  ;
115E 20 27 78   767           JSR IFS0
1161 F6 11 BD   768           ADR INPUTSTR,EQ
1164 00 
1165 F1 00      769           BYT "q",0
1167 D0 0B      770           BTR QUIT
1169            771  ;
1169 20 36 78   772           JSR PRINT
116C 8D 87 87   773           BYT CR,BELL,BELL,BELL,0
116F 87 00 
1171 4C 8C 08   774           JMP MAINLOOP
1174            775  ;
1174            776  ;
1174 20 36 78   777  QUIT     JSR PRINT
1177 8D CD E1   778           BYT CR,"Make sure the disk with the MAIL.LIST",CR
117A EB E5 A0 
117D F3 F5 F2 
1180 E5 A0 F4 
1183 E8 E5 A0 
1186 E4 E9 F3 
1189 EB A0 F7 
118C E9 F4 E8 
118F A0 F4 E8 
1192 E5 A0 CD 
1195 C1 C9 CC 
1198 AE CC C9 
119B D3 D4 8D 
119E E6 E9 EC   779           BYT "file is still in the active disk drive",CR
11A1 E5 A0 E9 
11A4 F3 A0 F3 
11A7 F4 E9 EC 
11AA EC A0 E9 
11AD EE A0 F4 
11B0 E8 E5 A0 
11B3 E1 E3 F4 
11B6 E9 F6 E5 
11B9 A0 E4 E9 
11BC F3 EB A0 
11BF E4 F2 E9 
11C2 F6 E5 8D 
11C5 E1 EE E4   780           BYT "and press return:",0
11C8 A0 F0 F2 
11CB E5 F3 F3 
11CE A0 F2 E5 
11D1 F4 F5 F2 
11D4 EE BA 00 
11D7 20 0F 78   781           JSR READLN
11DA            782  ;
11DA 20 36 78   783           JSR PRINT
11DD 8D 84 C3   784           BYT CR,CTLD,"CLOSE",CR,0
11E0 CC CF D3 
11E3 C5 8D 00 
11E6 4C 69 FF   785           JMP EXIT
11E9            786  ;
11E9            787  ;
11E9            788  ;
11E9            789  ;
11E9            790  ;
11E9            791  ;
11E9            792  **********************************
11E9            793  ;
11E9            794  ;  Auxiliary routines.
11E9            795  ;
11E9 A9 8D      796  WRITELN  LDA #CR
11EB 4C 00 78   797           JMP PUTC
11EE            798  ;
11EE            799  ;
11EE            800  ;
11EE            801  **********************************
11EE            802  ;
11EE            803  ;
11EE            804  ;  Variable declarations.
11EE            805  ;
11EE            806  ;
11EE            807  ;
11EE            808  ;
11EE 01 00      809  ONE      ADR 1
11F0            810  ;
11F0            811  ;
11F0            812  ;
11F0 00 00      813  I        ADR 0
11F2 00 00      814  NUMRECS  ADR 0
11F4 00 00      815  RECNUM   ADR 0
11F6            816  ;
11F6            817  ;
11F6 80 00      818  INPUTSTR ADR 128
11F8            819           DFS 128
1278 0B 00      820  FIRSTNAM ADR 11
127A            821           DFS 11
1285            822  ;
1285 0B 00      823  LASTNAME ADR 11
1287            824           DFS 11
1292            825  ;
1292 17 00      826  AUXINFO  ADR 23
1294            827           DFS 23
12AB            828  ;
12AB 1D 00      829  STRTADRS ADR 29
12AD            830           DFS 29
12CA            831  ;
12CA 0D 00      832  CITY     ADR 13
12CC            833           DFS 13
12D9            834  ;
12D9 02 00      835  STATE    ADR 2
12DB            836           DFS 2
12DD            837  ;
12DD 09 00      838  ZIPCODE  ADR 9
12DF            839           DFS 9
12E8            840  ;
12E8 0E 00      841  PHONENUM ADR 14
12EA            842           DFS 14
12F8            843  ;
12F8            844  ;
12F8            845           END 